home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / nukeny.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  12.0 KB  |  384 lines
  1. 10  REM-Nuclear attack simulator
  2. 20  REM-by J.R.DUKAT
  3. 30  REM
  4. 40  REM-Information presented is as good as my sources allow
  5. 50  REM-any corrections or improvements are welcomed........
  6. 60  REM
  7. 70  REM-start it up
  8. 80  SCREEN 1:CLS:KEY OFF
  9. 90  LOCATE 10,10,0:PRINT "DO YOU LOVE NEW YORK?";
  10. 100  FOR T=1 TO 3000:NEXT T:CLS
  11. 110  GOTO 160
  12. 120  GOSUB 2970
  13. 130  GOSUB 2940
  14. 140  SCREEN 1
  15. 150  CLS
  16. 160  COLOR 1,0
  17. 170  KEY OFF
  18. 180  LINE (158,3)-(339,20),2,B
  19. 190  LINE (158,27)-(338,190),2,B
  20. 200  LOCATE 2,21:PRINT " MAP..NEW YORK AREA";
  21. 210  SCALE=1
  22. 220  XT=-140:YT=120
  23. 230  IBMX=150+(XT*SCALE):IBMY=99-((YT)*SCALE)
  24. 240  FLG=0
  25. 250  READ X,Y
  26. 260  IF X=999 AND Y=999 THEN 240
  27. 270  IF X=888 AND Y=888 THEN 370
  28. 280  X=X+TX:Y=Y+TY
  29. 290  X0=TX:Y0=TY
  30. 300  X=IBMX+X:Y=IBMY-(Y)
  31. 310  PSET (X,Y),1
  32. 320  IF FLG=0 THEN 340
  33. 330  LINE (X,Y)-(LASTX,LASTY)
  34. 340  LASTX=X:LASTY=Y
  35. 350  FLG=1
  36. 360  GOTO 250
  37. 370  READ X,Y
  38. 380  IF X=999 AND Y=999 THEN 410
  39. 390  PAINT (X,Y),2,3
  40. 400  GOTO 370
  41. 410  GOSUB 3020 ;DRAW COMPASS ROSE
  42. 420  IF NXTBOMB=1 THEN 2330
  43. 430  LOCATE 5,21:PRINT "  This map covers ";
  44. 440  LOCATE 6,21:PRINT " an area of appx. ";
  45. 450  LOCATE 7,21:PRINT " 1700 sq/mi.  The ";
  46. 460  LOCATE 8,21:PRINT " long dimension is";
  47. 470  LOCATE 9,21:PRINT " about 50 miles - ";
  48. 480  LOCATE 10,21:PRINT " short dimension  ";
  49. 490  LOCATE 11,21:PRINT " about 34 miles.  ";
  50. 500  LOCATE 12,21:PRINT " Manhattan island ";
  51. 510  LOCATE 13,21:PRINT " can be seen near ";
  52. 520  LOCATE 14,21:PRINT " the map center.  ";
  53. 530  LOCATE 15,21:PRINT " The Hudson river ";
  54. 540  LOCATE 16,21:PRINT " runs along the w.";
  55. 550  LOCATE 17,21:PRINT " side.  The East  ";
  56. 560  LOCATE 18,21:PRINT " river on opposite";
  57. 570  LOCATE 19,21:PRINT " side. Staten Is. ";
  58. 580  LOCATE 20,21:PRINT " is to the SW.    ";
  59. 590  FOR T=1 TO 9000:NEXT T
  60. 600  GOSUB 2970  ;CLEAR BIG BOX
  61. 610  LOCATE 5,21:PRINT "  The south end of";
  62. 620  LOCATE 6,21:PRINT " Long Is. Sound is";
  63. 630  LOCATE 7,21:PRINT " to top right.    ";
  64. 640  LOCATE 8,21:PRINT "  The entrance to ";
  65. 650  LOCATE 9,21:PRINT " New York Harbor  ";
  66. 660  LOCATE 10,21:PRINT " is to the bottom ";
  67. 670  LOCATE 11,21:PRINT " right of the map.";
  68. 680  LOCATE 12,21:PRINT " Most of the left ";
  69. 690  LOCATE 13,21:PRINT " side would lie in";
  70. 700  LOCATE 14,21:PRINT " New Jersey...    ";
  71. 710  FOR T=1 TO 8000:NEXT T
  72. 720  GOSUB 2970
  73. 730  LOCATE 5,21:PRINT "  This program is ";
  74. 740  LOCATE 6,21:PRINT " to demonstrate   ";
  75. 750  LOCATE 7,21:PRINT " effects from var-";
  76. 760  LOCATE 8,21:PRINT " ious nuclear war-";
  77. 770  LOCATE 9,21:PRINT " heads which might";
  78. 780  LOCATE 10,21:PRINT " be used in attack";
  79. 790  LOCATE 11,21:PRINT " ing New York.....";
  80. 800  LOCATE 12,21:PRINT " This attack will ";
  81. 810  LOCATE 13,21:PRINT " consist of just  ";
  82. 820  LOCATE 14,21:PRINT " nine 1 MT. bombs.";
  83. 830  LOCATE 15,21:PRINT " They will explode";
  84. 840  LOCATE 16,21:PRINT " at an altitude of";
  85. 850  LOCATE 17,21:PRINT " 8000 ft. This sim";
  86. 860  LOCATE 18,21:PRINT " ulation would be ";
  87. 870  LOCATE 19,21:PRINT " considered on the";
  88. 880  LOCATE 20,21:PRINT " conservative side";
  89. 890  LOCATE 21,21:PRINT " A maximum attack ";
  90. 900  LOCATE 22,21:PRINT " would use around ";
  91. 910  LOCATE 23,21:PRINT " 60 warheads......";
  92. 920  FOR T=1 TO 11000:NEXT T
  93. 930  GOSUB 2970
  94. 940  TMR=2000
  95. 950  GOSUB 2940
  96. 960  LOCATE 2,21:PRINT "   Select Targets  ";
  97. 970  LINE (158,27)-(338,190),2,B
  98. 980  LOCATE 5,21:PRINT "   Manhattan Is.  ";
  99. 990  SOUND 500,1:PSET (81,90),1
  100. 1000  FOR T=1 TO TMR:NEXT T
  101. 1010  LOCATE 6,21:PRINT "   Seacaucus      ";
  102. 1020  SOUND 500,1:PSET (53,83),1
  103. 1030  FOR T=1 TO TMR:NEXT T
  104. 1040  LOCATE 7,21:PRINT "   Bayonne        ";
  105. 1050  SOUND 500,1:PSET (56,114),1
  106. 1060  FOR T=1 TO TMR:NEXT T
  107. 1070  LOCATE 8,21:PRINT "   Staten Is.     ";
  108. 1080  SOUND 500,1:PSET (32,136),1
  109. 1090  FOR T=1 TO TMR:NEXT T
  110. 1100  LOCATE 9,21:PRINT "   Newark         ";
  111. 1110  SOUND 500,1:PSET (22,103),1
  112. 1120  FOR T=1 TO TMR:NEXT T
  113. 1130  LOCATE 10,21:PRINT "   Hackensack     ";
  114. 1140  SOUND 500,1:PSET (69,53),1
  115. 1150  FOR T=1 TO TMR:NEXT T
  116. 1160  LOCATE 11,21:PRINT "   Bronx          ";
  117. 1170  SOUND 500,1:PSET (105,60),1
  118. 1180  FOR T=1 TO TMR:NEXT T
  119. 1190  LOCATE 12,21:PRINT "   Queens         ";
  120. 1200  SOUND 500,1:PSET (117,99),1
  121. 1210  FOR T=1 TO TMR:NEXT T
  122. 1220  LOCATE 13,21:PRINT "   Brooklyn       ";
  123. 1230  SOUND 500,1:PSET (91,118),1
  124. 1240  FOR T=1 TO TMR:NEXT T
  125. 1250  FOR I=5 TO 13
  126. 1260  LOCATE I,22:PRINT CHR$(26);
  127. 1270  SOUND 1000,1:FOR T=1 TO 50:NEXT T
  128. 1280  NEXT I
  129. 1290  LOCATE 2,21:PRINT " Targets Confirmed ";
  130. 1300  FOR T=1 TO 4000:NEXT T
  131. 1310  GOSUB 2970
  132. 1320  FOR S=1 TO 50:SOUND 9000,0.5:SOUND 8000,0.5:NEXT S
  133. 1330  LOCATE 2,21:PRINT "   Warhead Size    ";
  134. 1340  LOCATE 5,21:PRINT "   Each warhead is ";
  135. 1350  LOCATE 6,21:PRINT " one megaton - the ";
  136. 1360  LOCATE 7,21:PRINT " equivalent of one ";
  137. 1370  LOCATE 8,21:PRINT " million tons of   ";
  138. 1380  LOCATE 9,21:PRINT " TNT.              ";
  139. 1390  LOCATE 11,21:PRINT "  Warheads are set ";
  140. 1400  LOCATE 12,21:PRINT " to airburst at an ";
  141. 1410  LOCATE 13,21:PRINT " altitude of 8000  ";
  142. 1420  LOCATE 14,21:PRINT " feet.             ";
  143. 1430  FOR T=1 TO 5000:NEXT T
  144. 1440  GOSUB 2970:GOSUB 2940
  145. 1450  SOUND 8000,0.5
  146. 1460  LOCATE 2,21:PRINT "   Targets Marked  ";
  147. 1470  PSET (81,90),Z
  148. 1480  PSET (53,83),Z
  149. 1490  PSET (56,114),Z
  150. 1500  PSET (32,136),Z
  151. 1510  PSET (22,103),Z
  152. 1520  PSET (69,53),Z
  153. 1530  PSET (105,60),Z
  154. 1540  PSET (117,99),Z
  155. 1550  PSET (91,118),Z
  156. 1560  C=C+1:IF C=150 THEN 1590
  157. 1570  IF Z=1 THEN Z=0 ELSE Z=1
  158. 1580  GOTO 1470
  159. 1590  LOCATE 2,21:PRINT " Time to detonate  ";
  160. 1600  FOR CD=30 TO 3 STEP -1
  161. 1610  LOCATE 6,23:PRINT USING "####";CD;
  162. 1620  LOCATE 6,28:PRINT "seconds";
  163. 1630  FOR T=1 TO 1000:NEXT T
  164. 1640  NEXT CD
  165. 1650  GOSUB 2970
  166. 1660  FOR S=1 TO 50:SOUND 4000,0.5:SOUND 4500,0.5:NEXT S
  167. 1670  LOCATE 2,21:PRINT " -- DETONATION --  ";
  168. 1680  S=1:I=5:R=0:GOSUB 2690
  169. 1690  LOCATE 5,21:PRINT "       ZONE 1      ";
  170. 1700  LOCATE 7,21:PRINT " Diameter 3 mi.    ";
  171. 1710  LOCATE 10,21:PRINT " Overpress. 25 psi ";
  172. 1720  LOCATE 11,21:PRINT " Wind Vel. 320 mph ";
  173. 1730  LOCATE 13,21:PRINT "   All structures  ";
  174. 1740  LOCATE 14,21:PRINT " above ground are  ";
  175. 1750  LOCATE 15,21:PRINT " destroyed.        ";
  176. 1760  LOCATE 17,21:PRINT " 98 % fatalities   ";
  177. 1770  LOCATE 19,21:PRINT " STBY FOR ZONE 2   ";
  178. 1780  FOR T=1 TO 5500:NEXT T
  179. 1790  GOSUB 2970
  180. 1800  S=6:I=10:R=3:GOSUB 2690
  181. 1810  LOCATE 5,21:PRINT "       ZONE 2      ";
  182. 1820  LOCATE 7,21:PRINT " Diameter 6 miles  ";
  183. 1830  LOCATE 10,21:PRINT " Overpress. 9 psi  ";
  184. 1840  LOCATE 11,21:PRINT " Wind Vel. 260 mph ";
  185. 1850  LOCATE 13,21:PRINT "  Factories/office ";
  186. 1860  LOCATE 14,21:PRINT " buildings collapse";
  187. 1870  LOCATE 15,21:PRINT " Severe damage to  ";
  188. 1880  LOCATE 16,21:PRINT " highway bridges.  ";
  189. 1890  LOCATE 17,21:PRINT " 50% dead 40% inj. ";
  190. 1900  LOCATE 19,21:PRINT " STBY FOR ZONE 3   ";
  191. 1910  FOR T=1 TO 5500:NEXT T
  192. 1920  GOSUB 2970
  193. 1930  I=19:R=1:GOSUB 2590 ;DRAW CIRCLES
  194. 1940  LOCATE 5,21:PRINT "       ZONE 3      ";
  195. 1950  LOCATE 7,21:PRINT " Diameter 10 mi.   ";
  196. 1960  LOCATE 10,21:PRINT " Overpress. 3 psi  ";
  197. 1970  LOCATE 11,21:PRINT " Wind Vel. 98 mph  ";
  198. 1980  LOCATE 13,21:PRINT "  Wood frame resid-";
  199. 1990  LOCATE 14,21:PRINT " ences severely    ";
  200. 2000  LOCATE 15,21:PRINT " damaged. People   ";
  201. 2010  LOCATE 16,21:PRINT " are blown around. ";
  202. 2020  LOCATE 17,21:PRINT " 2nd degree burns. ";
  203. 2030  LOCATE 18,21:PRINT " 10% dead 45% inj. ";
  204. 2040  LOCATE 20,21:PRINT " STBY FOR MORE..   ";
  205. 2050  FOR T=1 TO 5500:NEXT T
  206. 2060  GOSUB 2970
  207. 2070  LOCATE 5,21:PRINT " LONG RANGE EFFECT ";
  208. 2080  LOCATE 7,21:PRINT " Light door/plaster";
  209. 2090  LOCATE 8,21:PRINT " damage to 14.5 mi.";
  210. 2100  LOCATE 9,21:PRINT " Windows broken out";
  211. 2110  LOCATE 10,21:PRINT " to 30 miles.      ";
  212. 2120  LOCATE 12,21:PRINT " Flashblindness to ";
  213. 2130  LOCATE 13,21:PRINT " 13 miles daytime. ";
  214. 2140  LOCATE 14,21:PRINT " and to 50 miles at";
  215. 2150  LOCATE 15,21:PRINT " night clear sky.  ";
  216. 2160  FOR T=1 TO 5500:NEXT T
  217. 2170  GOSUB 2970:GOSUB 2940
  218. 2180  LOCATE 2,21:PRINT " WANNA SEE WORSE ? ";
  219. 2190  LOCATE 5,21:PRINT " If you wait just a";
  220. 2200  LOCATE 6,21:PRINT " second i'll redraw";
  221. 2210  LOCATE 7,21:PRINT " the map and drop  ";
  222. 2220  LOCATE 8,21:PRINT " just one 20 MT.war";
  223. 2230  LOCATE 9,21:PRINT " head centered on  ";
  224. 2240  LOCATE 10,21:PRINT " Manhattan Is.     ";
  225. 2250  LOCATE 11,21:PRINT " I will mark zones ";
  226. 2260  LOCATE 12,21:PRINT " as before...      ";
  227. 2270  LOCATE 13,21:PRINT " Burst altitude for";
  228. 2280  LOCATE 14,21:PRINT " this device will  ";
  229. 2290  LOCATE 15,21:PRINT " be 17500 feet...  ";
  230. 2300  NXTBOMB=1
  231. 2310  FOR T=1 TO 9000:NEXT T
  232. 2320  RESTORE:GOTO 120
  233. 2330  SOUND 2000,1
  234. 2340  LOCATE 2,21:PRINT " Target Manhattan  ";
  235. 2350  LOCATE 5,21:PRINT "  20 MT. WARHEAD   ";
  236. 2360  PSET (81,90),0
  237. 2370  FOR T=1 TO 3000:NEXT T
  238. 2380  SOUND 5000,1:LOCATE 2,21:PRINT " -- DETONATION --  ";
  239. 2390  S=1:I=16:R=0:GOSUB 2830:S=17:I=23:R=1:GOSUB 2830
  240. 2400  CIRCLE (81,90),40,1
  241. 2410  FOR T=1 TO 3000:NEXT T
  242. 2420  GOSUB 2970
  243. 2430  LOCATE 6,21:PRINT " -FOR COMPARISON-  ";
  244. 2440  LOCATE 8,21:PRINT " I'll drop a 12.5  ";
  245. 2450  LOCATE 9,21:PRINT " kiloton bomb on   ";
  246. 2460  LOCATE 10,21:PRINT " Staten Island.    ";
  247. 2470  LOCATE 11,21:PRINT " (Hiroshima size)..";
  248. 2480  S=1:I=2:R=0:GOSUB 2900:S=3:I=4:R=3:GOSUB 2900
  249. 2490  FOR T=1 TO 10000:NEXT T:CLS:SCREEN 0:WIDTH 80
  250. 2500  LOCATE 10,15,0
  251. 2510  PRINT " Projection for U.S. & SOVIET warhead numbers for 1985"
  252. 2520  LOCATE 11,15,0
  253. 2530  PRINT " is a grand total of roughly 23000 of various sizes..."
  254. 2540  LOCATE 12,15,0
  255. 2550  PRINT " This total does not include other nuclear powers ..."
  256. 2560  LOCATE 17,19,0
  257. 2570  PRINT "             BYE/BYE  &  GOOD LUCK"
  258. 2580  FOR T=1 TO 9000:NEXT T:LOCATE 1,1,1:SYSTEM
  259. 2590  CIRCLE (81,90),I,R
  260. 2600  CIRCLE (53,83),I,R
  261. 2610  CIRCLE (56,114),I,R
  262. 2620  CIRCLE (32,136),I,R
  263. 2630  CIRCLE (22,103),I,R
  264. 2640  CIRCLE (69,53),I,R
  265. 2650  CIRCLE (105,60),I,R
  266. 2660  CIRCLE (117,99),I,R
  267. 2670  CIRCLE (91,118),I,R
  268. 2680  RETURN
  269. 2690  FOR GZ=S TO I
  270. 2700  CIRCLE (81,90),GZ,R
  271. 2710  CIRCLE (53,83),GZ,R
  272. 2720  CIRCLE (56,114),GZ,R
  273. 2730  CIRCLE (32,136),GZ,R
  274. 2740  CIRCLE (22,103),GZ,R
  275. 2750  CIRCLE (69,53),GZ,R
  276. 2760  CIRCLE (105,60),GZ,R
  277. 2770  CIRCLE (117,99),GZ,R
  278. 2780  CIRCLE (91,118),GZ,R
  279. 2790  FOR T=1 TO 300:NEXT T
  280. 2800  NEXT GZ
  281. 2810  REM-SINGLE WARHEAD ON MANHATTAN
  282. 2820  RETURN
  283. 2830  FOR GZ=S TO I
  284. 2840  CIRCLE (81,90),GZ,R
  285. 2850  FOR T=1 TO 300:NEXT T
  286. 2860  NEXT GZ
  287. 2870  FOR T=1 TO 300:NEXT T
  288. 2880  RETURN
  289. 2890  REM-sub to drop 12.5 kiloton bomb on staten island
  290. 2900  FOR GZ=S TO I
  291. 2910  CIRCLE (49,133),GZ,R
  292. 2920  FOR T=1 TO 300:NEXT T
  293. 2930  NEXT GZ
  294. 2940  REM- to clear small box
  295. 2950  LOCATE 2,21:PRINT "                  ";
  296. 2960  RETURN
  297. 2970  REM-sub to clear big box
  298. 2980  FOR I=5 TO 23
  299. 2990  LOCATE I,22:PRINT "                  ";
  300. 3000  NEXT I
  301. 3010  RETURN
  302. 3020  REM-sub to draw compass rose
  303. 3030  FOR I=20 TO 50 STEP 2:PSET (30,I),1:NEXT I
  304. 3040  FOR I=20 TO 40 STEP 4:PSET (I,35),1:NEXT I
  305. 3050  PSET (30,20),1:LINE -(27,23),1:PSET (30,20),1:LINE -(33,23),1
  306. 3060  RETURN
  307. 3070  DATA 32,-138,36,-140,40,-139,46,-138,48,-138,51,-137
  308. 3080  DATA 53,-139,53.5,-144,57,-150,43,-166,39,-168,41,-166
  309. 3090  DATA 39.5,-165,38,-167,28,-175,25,-174,22,-176,16,-178
  310. 3100  DATA 15,-175,18,-171,15.5,-170,18,-168,17,-165,21,-162
  311. 3110  DATA 24,-161,25.5,-154,27,-151,27.5,-145,26.5,-143,28,-140
  312. 3120  DATA 29,-139,30,-138,32,-138
  313. 3130  DATA 999,999
  314. 3140  DATA 135,-81, 127,-78, 126,-79, 124,-79, 125,-81, 122.8,-83
  315. 3150  DATA 124.5,-87, 125.2,-86, 128,-87, 129,-88, 130.5,-87, 129.5,-90
  316. 3160  DATA 129.5,-93, 128,-94, 128.5,-98, 127,-93, 126,-91, 124,-90
  317. 3170  DATA 120,-87, 119,-89, 119.5,-90, 118,-93, 118,-95, 120,-97
  318. 3180  DATA 119.5,-98, 120,-100, 121,-101, 120,-101, 119,-106, 115.8,-100
  319. 3190  DATA 116,-99, 115,-97, 113.5,-98, 114,-99, 111.5,-100, 111,-97
  320. 3200  DATA 107,-97, 106.5,-97, 104,-98, 102,-97, 101.5,-98, 101,-97
  321. 3210  DATA 100,-98,98,-101, 100,-102, 100,-105, 101,-106, 102,-106
  322. 3220  DATA 100,-108,98,-106,98.5,-105,99.5,-106,98.5,-104,95,-102
  323. 3230  DATA 95.2,-100,94,-101,93,-103,92,-104,90,-101,90,-99
  324. 3240  DATA 88,-99,86,-101,83.5,-102,82,-103,82.5,-105,76.5,-112
  325. 3250  DATA 77,-116,75,-120,75,-122,72.5,-121,69,-123,67.5,-126
  326. 3260  DATA 67,-127,66,-128,64,-129,66,-132,68,-132,65,-135
  327. 3270  DATA 61,-140,59.5,-144,61,-148,64.5,-150,69,-152,70,-155
  328. 3280  DATA 66,-156,65.5,-156,68,-158,74,-157,82,-156,82.5,-155
  329. 3290  DATA 78,-155,82,-154,87,-155,88,-153,89.5,-155,88.5,-155
  330. 3300  DATA 90,-156,93.5,-155,94,-154,92.5,-148,90,-144, 100,-138
  331. 3310  DATA 106,-137, 116,-145, 121,-141, 122,-143, 118,-145, 118,-148
  332. 3320  DATA 116,-148, 117,-152, 115,-149, 110,-152, 110,-153, 102,-155
  333. 3330  DATA 99,-155,89,-160,87,-159,81,-163,89,-162, 103,-156
  334. 3340  DATA 112,-154, 119.5,-152, 124,-152, 120,-155, 124,-154, 135,-155
  335. 3350  DATA 135,-81,999,999
  336. 3360  DATA 96, 0,96,-2,96,-4,96.5,-6,96.5,-8,96,-10
  337. 3370  DATA 96,-12,96,-14,96,-16,96,-18,95,-20,96,-22
  338. 3380  DATA 96.5,-24,96,-26,96,-28,96,-30,95,-32,94.5,-34
  339. 3390  DATA 94.5,-36,94,-38,94,-40,93,-42,93,-44,93,-46
  340. 3400  DATA 92.5,-48,92,-50,92,-52,91,-54,90,-56,89.5,-58
  341. 3410  DATA 89,-60,88.7,-62,88,-64,87.5,-66,87,-68,86.5,-70
  342. 3420  DATA 86,-72,85,-74,84,-76,83,-78,82,-80,81,-82
  343. 3430  DATA 80,-84,80,-86,79,-88,78,-90,76.5,-92,76,-94
  344. 3440  DATA 74.5,-96,73,-98,72,-100,71,-102,70,-104,68.5,-106
  345. 3450  DATA 67.5,-108,67,-110,66.8,-112,66,-114,66,-116,66,-118
  346. 3460  DATA 65.2,-120,64.2,-122,65,-123,67,-122,69,-121,73,-120
  347. 3470  DATA 74,-114,75.5,-110,80,-103,80.8,-101,84,-97,84,-95
  348. 3480  DATA 86,-96,88,-97,96,-95,97,-94, 100,-95, 102,-92
  349. 3490  DATA 103,-95, 104,-92, 108,-92, 112,-95, 119,-94, 110,-93
  350. 3500  DATA 110,-91, 109,-90, 107,-83, 107,-80, 109,-81, 110,-83
  351. 3510  DATA 113.5,-77, 113,-75, 117,-70, 116,-67, 117.5,-65, 118,-68
  352. 3520  DATA 122,-65, 121.5,-63, 124,-63, 124,-65, 124.5,-63, 126,-59
  353. 3530  DATA 123.5,-58, 128,-58, 130,-57, 133,-54, 131,-60, 135,-55
  354. 3540  DATA 135,0,96,0,999,999
  355. 3550  DATA  0, 0,86, 0,87.5,-2,88.5,-4,88.5,-6
  356. 3560  DATA 88.2,-8,87.5,-10,87,-12,87,-14,87,-16
  357. 3570  DATA 87,-18,86.5,-20,86.5,-22,85.8,-24,86,-26
  358. 3580  DATA 86,-28,86.2,-30,90.5,-31,88.8,-32,89,-33
  359. 3590  DATA 89,-34,89.5,-36,89.5,-38,89.5,-40,89,-42
  360. 3600  DATA 89.2,-44,89,-46,88.8,-48,88.2,-50,88,-52
  361. 3610  DATA 87,-54,86.5,-56,86,-58,85,-60,85,-62
  362. 3620  DATA 84.5,-64,84,-66,83.5,-68,83,-70,82,-72
  363. 3630  DATA 81,-74,80.5,-76,79.5,-78,78.5,-80,78,-82
  364. 3640  DATA 77,-84,75.8,-86,75,-88,74.8,-90,73.8,-92
  365. 3650  DATA 72,-94,71,-96,69.8,-98,69,-100,67.8,-102
  366. 3660  DATA 67,-104,66,-105,65,-106,64,-108,64,-110
  367. 3670  DATA 63.8,-112,63,-114,62.5,-116,63,-118,62,-120
  368. 3680  DATA 61.5,-122,58,-124,57,-126,54,-124,54,-128
  369. 3690  DATA 53,-130,54,-132,53,-134,47,-131,47.5,-132
  370. 3700  DATA 47.5,-134,50.5,-135,44,-137,42,-138,38,-138
  371. 3710  DATA 45,-125,48.5,-118,43,-118,43,-123,39,-129
  372. 3720  DATA 40,-130,37,-134,35,-133,32,-137,29,-138
  373. 3730  DATA 27,-140,25.5,-143,25.8,-148,26,-150,25,-154
  374. 3740  DATA 23,-160,22,-161,20,-160,16,-162,15,-166
  375. 3750  DATA 15.8,-170,12,-177, 9,-177, 8,-177,10,-178
  376. 3760  DATA 14,-185,21,-188,24.5,-190,25,-193,28,-190
  377. 3770  DATA 30,-187,35,-190,39,-187,44,-190,49,-192
  378. 3780  DATA 60,-196,66,-198,70,-200,70.5,-198,68,-194
  379. 3790  DATA 68,-190,66,-190,65,-184,62.5,-183,63.5,-181
  380. 3800  DATA 67,-183,70,-190,71,-198,70,-206,61,-207,0,-207,0,0,888,888
  381. 3810  DATA 60,60,140,100,140,30,50,140,77,165,105,137,96,140,123,131
  382. 3820  DATA 999,999
  383. 3830  STOP
  384.